;; import lists/standard.scm data-structures/trie.scm

(define t
  (merge '((zot zip zoo zap)
           (zot zip zag)
           (zot zig zag)
           (rum pum pum)
	   (boo caw caw caw caw caw)
           (rum pum pum pum)
           (rum pum)
           (boo moo)
           (moo boo)
           (boo baa moo maa)
           (boo moo baa)
	   (boo caw)
	   (boo caw caw)
	   (boo zip)
	   (boo zig zag)
           (moo baa moo baa)
	   (boo caw caw caw caw caw caw caw)
           (rum pum pum did dad dum)
           (caw caw caw caw caw)
           (caw caw caw caw)
           (moo boo mop))))

(print 'trie)
(print-trie t 0)
(newline)

(print 'listing-elements)
(for-each print (enumerate-trie t))
(newline)
